SIN (Sinclair Informations Nouvelles)

TE

DENG
PRUG

avis

n a
roam! da
i dr 2111111) g

Rédacteur: Réal Gagnon, 4870 Henri-Julien Montréal P.B. H2T 1
(314) 845-5494
Collaboration: Yves Gagnon, Simon Rioux
Ce bulletin est conçu avec l'aide du traitement de texte QUILL
(PSION), de TASPRINT (TASMAN SOFTWARE) et de QDRAW (PSION).
L'impression se fait sur une imprimante STAR NX-10.

CR

de me pose de petites questions ces tenps-çi. Est-ce qu'un

lecteur pourra me renseigner, mystère... Est-ce que quelqu'un
sait si l'hebdomadaire POPULAR COMPUTING WEEKLY existe toujours?
TIME DESIGN, TS HORIZONS, SYNCWARE NEWS sont-ils toujours en vie?

Aussi, il y a sürement des lecteurs liens qui sont membres de
QUANTA. J'aimerais savoir si ils ont réussi à obtenir la fameuse
librairie de logiciels. Sinon je sais que le libraire-QUANTA aux
Etats-Unis est DAVE ROTHMAN, 10156 Little Pond Place,
Gaithersburg MD 20879, USA. Alors voilà, le seul moyen pratique
est à mon avis de commander la librairie au complet d'un coup!
Cela représente plus de 8 Mega-octets de logiciels, i.e. 8000 K
ou 80 ydrives. Autant dire tout de suite que les pdrives sont à
rejetés pour ce genre de transaction à cause des frais de
transports élevés, J'ai appris qu'il en coute $110 US pour la
librairie complète sur disquettes, Cela représente un bon montant
pour une seule personne mais si on pouvait se regrouper cela
abaisserait les coûts sensiblement, alors si vous êtes un membra
QUANTA et que la librairie vous intéresse, communiquez avec moi,
car plus on sera à partager les frais, plus on pourra profiter de
notre "membership" à QUANTA. Merci,

NOUVEAU SPECTRUM. ssnunsanssesueununs

AMSTRAD annonce un nouveau modèle SPECTRUM nommée cette fois-çi,
SPECTRUM +3, Ce qui caractérise celui-ci est qu'il y a un lecteur
de disque 3" intégré. Il possède également 128K de RAM, 2 ports
JOYSTICK, un semblant de port MIDI, et une sortie R5232, Le prix
équivaut à environ $300 US,

COMPUTER FEST... . ess see ae ھ‎ ٢ seen ..

C'est au mois de mai dernier qu'a eu lieu le TS COMPUTER FEST 87,
Cette année le tout s'est tenu à CINCINNATI. Le H tenait une
place importante, mais le 2068 et le 1181 étaient toujours
présents en force.

Voici les faits saillants:

ZEBRA SYSTEMS offrait un TRACKBALL compatible 2088/üL.

: NOVELSOFT (Toronto), auteur de TIMACHINE (compilateur 2068/5P),
de ARTWORK (logiciel graphique 2068/5P), ont présenté leur
dernier produit, ZXpert qui permet de créer un système expert,

LEMKE SOFTWARE DEVELOPPEMENT, auteur de PIXEL SKETCH AND GRAPHIC
EDITOR, présente PIXEL PRINT qui amène le 2068 à l'ère du DESKTOP
PUBLISHING.

ARCHIVE est un logiciel avec beaucoup de possibilités, RMG
ENTERPRISE ont produit un bouquin sur les "Ins and Outs"
d'ARCHIVE. Cette même compagnie a également congu des programmes
(pour affaires) "ready to use" pour ARCHIVE toujours.

; NOVELSOFT 106 7th Street, Toronto Canada MOV 384 (415) 259-8582
. LEMKE SOFTWARE DEV, 2144 White Oak, Witchita KS 67207 U.S.A.

; RMG ENTERPRISE 1419 1/2 7th Street Oregon City OR 97045 U.S.A.

` ZEBRA SYSTEMS 78-05 Jamaica Ave., Woodhaven NY 11421 U,S,A,

' NOUVEAUX ITEMS QLiens............

CURRY COMPUTER offre un EPROM qui peut remplacer les 2 ROMs du
' GL. Ceci a pour effet de diminuer la consommation du courant. Ils

peuvent également installer ICE, TOOLKIT IT ou GFLASH sur la
; tarte si vous leur envoyer l'original. Mais le plus intéressant
' est qu'ils peuvent vous mettre soit le ROM JSU (US) ou JS
. (Angleterre), cette dernière corrige les petits problèmes
: d'images avec certains logiciels britanniques, Prix -( $49.95 US

| Egalement CURRY COMPUTER annonce une carte, la TRUMP CARD, elle
| donne un interface pour disquette, 768K de RAM (au lieu du 640K
i Standard), TOOLKIT II intégré et d'autres logiciels en prime.
| Tout ça pour moins de $300 US ( probablement $299,95), Cette
. carte est fabriquée par MIRACLE SYSTEMS.

| COMPUTER SHOPPER `

| Fait assez rare de nos jours, le magazine américain COMPUTER
. SHOPPER augmente sa couverture des ordinateurs SINCLAIR. En
| effet, il semble que MARK L, FENDRICK, l'auteur de SINCLAIR
| SURVIVAL COLUMN, se spécialise sur le QL tandis qu'une nouvelle
. colonne, MORE TIMEX-SINCLAIR, traitera plus spécifiquement du
i 2058 et du SPECTRUM,

لد

QL compatible CF/M...... مور‎ sasan.

CURRY COMPUTER (encore...) annonce un EMULATEUR CP/M pour le 8L,
Cela consiste à un ROM et un logiciel, Les lecteurs de disquette
sont essentiels car les logiciels CP/M ( ex. HORDSTAR, TURBO
PASCAL,etc...) se présente toujours sous la forme de disquettes
9.25", Ce qui est intéressant avec ceci, est que avec un logiciel
du genre BRAM, vous pouvez fonctionner avec les 2 systèmes
d'exploitation en même temps, i.e. CP/M et 0108 car je vous
rappelle que le QL est multi-táche.

Si vous ne pouvez pas lire un programme sur votre microdrive,
et que vous ne possédez pas le logiciel 'Doctor' ou 'üDoctor'
pour recupérer le programme qui est corrompu, voici un petit
programme utilitaire qui peut-&tre vous rendra service. Ce
programme pourra aussi récuperer un fichier ‘Archive’ qui se
solde avec le message 'Wong file’ .

I] suffit de comparer avec un bon programme afin de faire la
correction nécessaire.

Yves bagnon,

120 REMark == Yves Gagnon 04/06/87 ==

140 REMark szzzzzzzzzzzzzzzzzzzzzzz2zz22zz

US 1۶ 9 9 9 191111111

170 71 ( Fi ) MODE MONITEUR

180 13٢٣٢ 7171

190 :

200 INIT

210 DEPART

220 :

240 DEFine PRüCedure INIT

250 1۳٢٥ 051

260 CLS:CLS#0:CLS#2:DRV$=" ۷۹0۷۱: MODE 4

270 INPUT\ ENTREZ LE NOM DU PROGRAMME CORROMPU :'Vnon$
280 INPUTV'ENTREZ LA LONGUEUR DE CE PROGRAMME :'\long
290 a=RESPR(Iong)

300 LBYTES DRV$4" "knomt,a

310 END DEFine INIT

mm

320 REMark tf:
330 DEFine PRÜCedure DEPART
340 REMark 0 9 9 91
350 92
360 PRINT#2,\' < Fi > POUR LA CORRECTION DU BYTE’
` ` 370 PRINT#2,\ < F2 > REVENIR AU DEBUT DU PROGRAMME”
' 380 PRINT#2,\ < F3 > SAUVEGARDE DU PROGRAMME CORRIGE?
(390 PRINT#2,\' < F4 > RETOUR AU BASIC’
1400 PRINT#2,\" € F5 > CHARGEMENT D'UN PROGRAMME"
(410 881172,۱١۱ ADRESSE ==)’
420 PRINT#2,\ — CODE ==)’
1430 PRINT#2,\ N/BYTES =->'
| 440 FOR x=0 TD long
450 PRINT CHR$(PEEK(atx));
` 460 AT#2,12,1S:PRINTHZ,atx;" °
. 470 ATR2, 14, IB: PRINTEZ,PEEK(aé4);! °
: 480 ATE2, KIHM TM
` 490 CLE-CODE (INKEYS (71))
| 500 IF CLE=232 THEN cor
| 510 IF CLE=236 THEN DEPART
| 520 IF CLE=240 THEN SAUVE
| 830 IF CLE=244 THEN STOP
| 540 IF CLE-248 THEN RUN
| 550 IF x=long THEN GO TO 490
. 560 END FOR x
| 570 END DEFine DEPART
| 580 REMark (DIER n
| 990 DEFine PRüCedure cor
| 600 REMark (DEED
' 610 AT#2,18,0: INPUT#2, "ENTREZ LE NOUVEAU CARACTERE: Vcod$

| 420 POKE atx, CODE (cod$)
| 630 DEPART
| 440 END DEFine cor
| 650 ٣٣٢٤٢ 1
' 660 DEFine PROÜCedure SAUVE
. 670 ١٣٠٢٢ 1
۵٨80 AT#2,18,0:PRINT#2, METTRE UNE CARTOUCHE FORMATTEE DANS
0۷1 V TAPEZ UNE TOUCHE POUR CONTINUER’
690 PAUSE
700 AT#2,18,0:PRINT#2, 7

710 AT#2,18,0:INPUT#2, ENTREZ LE NOM DU PROGRAMME: "noe ` —
720 SBYTES DRV$&' _’&non$,a,long 3000 ٧٣٤٤٣٢٢ 1
730 DEPART 5010 DEFine PROCedure enr
740 END DEFine SAUVE 3020 ٧٣٣3٢٢ 51
3030 DELETE 'ndvi REC BAS’
3040 SAVE — 'mdvi REC BAS'
9090 END DEFine

Lët `

nu

P]

BEE
"Zéi
d DI,
KC "L
i dor jm
FIC b s

ut

MIT MU
Ree,

KR A

۸ ^,
mm ` jp

m
n
n Ú

m
D

WÉI

٨

n om

Z pl
illut

AE

a

ID,

e a Pi

ZE

hh, h, t,

m

it
in

pont

A, hl
KP
Kime 1
A. dir, D» "hs
SE WE pure

Mi be

WIN NES q

iil a

٣ ند‎

Dal

m

n".

n

0
4
HX

ud

H

GC
Li

DW] "y

e
Sb
gr
:

pit

: KI
٠!

Es

1

l

n" MCE

pel

7 d

df
! 3: `
3 KR و1‎

LR

Le 1

" ۸

en qmm

P ۳

tls)
ER

= 7

ch
] «M
Din s
n
TU
Ind np ne
oft À

DN "0

Hi
4 U
1

qub eh

h nien k

Em

goe

GE
ien i Lu

OI hin

ud

VE d

rm

D

gx og
BET, o

mu À ne M
Za mi js
DEREN:
gn LI In

ial Lt, Cd

= [hre À q | e ode
tat, Hä
ID, Hit, 20
um mg L a

n AT) ٠)" h i‏ مر

wo nw
۸ M

ats ud D

AN
wd D
um
LI bera
ml W H
II

MI ET
Wu dE "
D RE
MK ۷ "

Kc
ji

۷

PE

W 13) ۱
i i ni

t
dp 0 l HN!

KE

Voici non premier programme en assenbleur 68000, Cet utilitaire

ajoute 2 nouvelles commandes au SUPERBASIC qui mettent le clavier
soit en minuscule soit en majuscule, Ces commandes ont pour nom:

CAPSON -> Clavier Majuscule
CAPSOFF -> Clavier Minuscule

Tapez le programme basic, et les codes seront sauvés
automatiquement soit sur disquette ou sur pdrive, On spécifie le
nom du fichier dans la variable fichier$,
Ex. fichier$z"ndvi CAPS bin"
fichier$z'flpl CAPS bin"

Voyons un peu la méthode à suivre pour définir des extensions au
: SUPERBASIC,

, 1° Nous devons initialiser nos nouvelles commandes, Pour ce
, faire, nous chargeons Al avec l'adresse de la table qui contient
l'information nécessaire à cette initialisation, Puis dans A2,
! nous mettons l'adresse du vecteur qui contient l'adresse de la
routine de QDÜS qui se charge de valider nos nouvelles commandes.
Ce vecteur est à l'adresse 1108. Lorsque la validation est
| terminée, nous mettons "0" dans DO pour permettre un retour au

29 Notre table de définition commence avec le nombre de commandes
que nous voulons définir, Dans notre cas, c'est 2, Puis on donne

' l'adresse relative de la 1er= commande, le nombre de lettres puis
' la syntaxe de la commande. Ün recommence avec la 2:*^* commande,

| Après les commandes, nous disons que nous définissons aucune
: fonction.

: 39 La routine CAPSOFF consiste à mettre "0" dans la variable

systeme à 28088h,

4? La routine CAPSON consiste à mettre "255" dans la variable
système à 28088h.

à Commandes SUPERBASIC pour mettre le clavier

1 soit en majuscule, soit en minuscule,

CAPSOFF -)

1

1 SYNTAXE: CAPSON — ->
1

1

1 Auteur: Réal Gagnon

i

1

1 DDOS routine

BPINIT EQU 40

t

CAPS EQU — $28088
OFF ERU 0

DN EaU -i

t

1 -initialisation des commandes CAPSOFF et CAPSON

i
LEA CAPUDMM A
MOVE.H — BPINIT, A2

JSR (A2)
MOVEG 0
RTS

1

1 Les commandes

1

CAPCOMM 1
DC. W
DC.B
DC. W
DC. B
DC.W
DC.W
DC.W

1

CAPSOFF MOVEG 7۴

MOVE.W DO,

RTS
1

CAPSON MOVED #ON,
MOVE.W DO,

MOVER #0,
RTS

END

i

2
CAPSUFF-1
7, 'CAPSOFF'
CAPSON-+

5, CAPSON'
0

0

0

F, DO
(CAPS)

10
(CAPS)
DO

Initialisë nouvelles connandes BASIC

Variable-système par CAPS LOCK |

Clavier majuscule
Clavier minuscule

janvier 87

Pointe les noms des commandes
Routine DDOS pour les mettre en fonction
|
m"

Retour sans probléme...
«aU SUPERBASIC

Nombre de commandes

Adresse de la routine CAPSOFF
Nbre de lettre et syntaxe
Adresse de la routine CAPSON
Nbre de lettre et syntaxe

Fin des procédures E
Aucune fonction i
Fin des fonctions i

Met 0 dans la variable-systène
pour tomber en minuscule.
Retour au SuperBasic.

Met 255 (en binaire signé) dans lai
var,-sys. pour tomber en majusc. `
D0=0 pour le retour sans erreur
au SuperBasic,

octo vene

Fin du programme

10 REMark CAPS COM
20 REMark R. GAGNON Montreal 87
30 REMark CAPSON -> Majuscule
40 REMark CASPOFF -)Minuscule
50 REMark LOAD avec a=respr (54)
60 REMark LOAD xxxx vunn ۵8
70 REMark CALL a
80 :
90 depart-RESPR(44)
100 INPUT "Nom :";n$
110 FOR i=0 TO 63
120 READ a: POKE depart+i,a

130 END FOR i
140 :
. 130 DELETE n$
160 SBYTES n$,depart,64

170 :

1000 DATA 57,250,0,12,52,120,1,16,78,146 10000 : «y es

1001 DATA 112,0,78,117,0,2,0,26,7,67 10005 DEFine PROCedure update
1002 DATA 65,80,83,79,70,70,0,26,4,67 10006 DELETE £1pl caps load
1003 DATA 65,80,83,79,78,0,0,0,0,0 10007 SAVE flpi caps load
1004 DATA 0,0,112,0,21,192,0,2,128, 134 10008 END DEFine

1005 DATA 78,117,112,255,51, 192,0, 2, 128, 136
1006 DATA 112,0,78,117

M ——À MÀ — — À‏ ااا اا ee‏ مهه مههه m ae me oa‏ ورموره مه رورو

: TRUC SPECTRUM/2088, .. TRUC SPECTRUM/2058. . , TRUC SPECTRUM/2088. , , TR
: 8i vous possédez une imprimante T82080, voici une routine qui
vous pernet d'imprimer soit l’écran entier (24 lignes) ou le
: nombre de lignes que vous désirez,

10 RESTORE : INPUT "Adresse de depart: Vide

20 CLEAR dep-1

30 FOR fzdep TO dep+5

40 READ a: POKE f,a

30 NEXT f

60 LOAD ""SCREEN

70 RANDOMIZE USR dep

SPECTRUM +80 DATA 243,4,192,195,175,14
2068 _ 380 DATA 243,6,192,195,5,10

Hs nombre {92 représente le nombre de 11008518 que l'on veut
. imprimer, Exemple pour 24 lignes -( 24 042
pour 12 lignes -) 12 576

mv

OUT

OZ Kb H ou
m m E h
III VEL bent D سا‎ sa
imll EE 2 AH
rk ru ud

UNE TRAN NT M im
le i 7 bi Ut Kai ۸ n ñ 1 nm l RK

vim! ` vm "mE w

de
RK sel M H

n .^ bt j
: oven | "m Hu
SHH ke

١١ D o MN 1 ALU یږ‎ d
H q n de di t 11717 É

IL `

W|

٣۸ uh

0 : H SE hn
il d p nd den

T TES

"| ۱٨ ٧

Wi MEN
» h A

" LTEM JU
mm 0 pa j F
W^ s
Ko n a
1 d
» H d
" e ad [f]
Odd 30

d
WM

8

ii a

١ Wi OU j ۳ i 1 `

vul bal BU à

En If‏ سا
hI U HY 8,‏

٨. ki us اس‎
لر‎ Old
Ë MUD w » W
WETE d
N LA maj di
y ۳ :

YÉ der ul 01
m Ñ d d d
METAM
M U LT n Mt
1 VUE UI bn bas a ru
gt m inu qn
MI Dp gi a 2 le Phil
quse m d.n s
TEEFDISISEEDIMEN.

js. DI

T

IW
11

m.

سیا

E ts, i
MO rum "m

n» «nou» »n on»

11 D,
HE At
H iu

pn I
1 i DA BE

Im
ün,
ual |

lf : H

l [m LU T

FEE
nb t

hw d

di f^

EM

Dw OU H

i d D m n
TEM jin "i
dm A 9 29
EUM

"i

pam

D Mr m OU uM fim
: 2 , hil ۸ Sé wl ' d o
m IW
d "o e لل‎
"m "ovo P"
" ut
m DE

i d T
19 d, D ue fim
EIN
1 E
TUM

h "at

0 Zu. 1 2

d

peii
peli

" y
m >a m 1 ë n Wull
d 0١ 0 m 1 } an,
" dch DEA 1 0۸٠ 1 : vilia
Wo m ^ "Nei m "DE ۳ 0 d " we
Wo ue W M Bg ٧ o, Aug M.E QU m e d
"PE Di ki lhe ws T 3 Dau FER TT CURE . o
man D: ud d m "m Pas i P M. e i] KE! " nyc, M
TL ME GW um di AIT TET: qum s . T 22
dn 3 D 1 A Go Ji ١ wm ۸ WEN "T A ۸ 4 1 MW : : : M d : | KI
M JA 1۷ m I VO 2 OM 0 ٨ loft ^ m
men "K wm MD 1T H an : HERE Wu? d

UI Wé
Wu d

on m
ا ا‎ A
J s ml

PLC [Üw owl

^t ۷" wv II wën 0, mp (RAI 0 » nh Wall "
1 n " " [6] ME Häll Mo np m " "wr vw Di D T
WA ! WM ü d d | L ۸ n pmo web E NI EGET

۷ M rf ss TETTE Di
LE dv 1 SCH M14243!
Eat E Ge PH xS mc mg qi
d) Bh) mm t E t ئ‎ ۷ HY:
|

rod

HR
f, (H | P ٤١ 1 mi
d

gua umn uar peon punt

MERS TES

lu " 1 In WI Eier he rn M 0 1 ٧ h 1 Ké m MI dt Ki UN M Kä Ki
"n ara L wi S AA III 8 ال‎ M. ER D, CB 1 eos P o
ELM ٢٧ ed ua P G wi dë RULES Û e e Ml he 0 o ٨٠
Lo. od A A de A omen 5^ Di "up KÉ | سه‎ ue wa

M bh Dal Hi n. m d gd gi OI "NED m i Dh

Im JH
1/۸ H m À

TEE T
mm em

gu d d main
١۱۱ ۱۹١ E n pn Pn n, o MT d] nd
dl, HE

' Ki ۸ m
F Ej n d 5 b ek nd D G k, di : ^ LE ! di ۸ HA m m i m
Mo ed dE CI یا‎ CET C | he OT 2 Lil D [m m Pl "4
a BERDA E dl PHP 7 1 ٢١ HEP TÉLÉ MD | Bu
vr da II wd ر‎ H vi ایا‎ ha M L 3 ^r n qr M l Loi ۳ , a 7 + [bed] ال‎
II un, اا‎ nn 0 [7 vi لآ ابا له‎ (GU Tp un d 1 d LE f 1 j : ma 1 € d: 3 m LI Gi

sd T E‏ سا
ل. سا Hai‏

Mm A | OW 1 bil i ch ۱١١ Î ٩۹ ١ Î ih TT ٩١ ۳ à

E " dm : SÉ (3 IO WI hi d
LO A À nn Ü YÉ e Ú I m P d À ٨٨٨۷ | $

ER Hle

1
i

E 1

s= = H

= > H

a wΠQa '

Kl viel D 3 i Si ui

E d aos Sm ï

rb Wat "PV ma IX" Sg ui

b, ميا‎ WB lk 1 HN? g H TI (otia ER n}

NE 199 ud T ^ | mn UP USE se > E eR |

rH ۲ CA 1 i J 33452495:

pi Deum Mud wi dl " Dg EE DNE

WI Ce I اس ده سوت‎

J N) b D md PJ š, (OPEM worn Uu d

L ۷ "ETE Ka 1:28 H re BE Sri)

D bh ELE ELE T. = G E R E mu dus mmt i

[^ tb. » d ۷ h d dd 34 ۸» en el AN WW 1 ca Q- va |
PE PTE L dt dal D i bv ri. i.t at? : kr ۷ ١ Sun اباب ين‎
f d i. '3 LE ٢ nal : ۷ engt e A | E BA BS = !
WE is PL T EI "as e y 1 ۱ 1 RE Su
PNP DUE 159.19) e ۱١۱١١١ A O, f 1) ” i M) kan HE f ! l atum:
d TEL ار و ر ا‎ 3 d dh | د‎ winr m |
1: Dun D ma: d md m m mn io” 3845:

J Pp 1 gen. SN D لس‎ Oo لی‎ MEE f Kai Km
" UNO Tt "PES L DI À BN EERSTE =!
۱ EL: oul R Ch CEDE 0 vi | | 1 lin ' TE EO |
HM n n IMP ١ 153 AE LAN M 18) Ji i 23 !اب کا‎
"| H Oh DU Ob, d ch pau s. OI 1 O G رر د‎ 1

s : m: ^ i g! KH H D TE 8 ۳ IS دت‎ ٥ 10e TS),

wd HE MILD » um d ٧ سم‎ © D

"miu m. M ECKE "M e hdl | cu Ane |

PIX y be, D : jl) Sn md ul ` ` a aah H

THE 5 do ms : d gë H : i "z i

m Ze qj 1 [M 1 ' Ex: pe 1‏ ار

Vu LE î dJ i d e Grieg 3 81 KE d

EE i

Dans cet article, nous allons découvrir comment exploiter les
possibilités graphiques du 2068 via le langage machine, en

utlisant la plupart du temps les routine ROM.

Les adresses correspondantes pour le SPECTRUM seront données

entre parenthéses,

Toutes les adresses sont en nombres décimaux.
FLOT

Cette routine se trouve à l'adresse 9790 (8933), Avant l'appel,
nous chargeons le registre B avec la coordonnée Y (0-175) et le
registre Û avec la coordonnée X (0-255),

Si nous voulons faire PLOT 10,50 alors nous aurons
LD B,50 ;Y
LD C,10 3X
JP 9790 ;PLOT & retour
en BASIC,

Le prochain exemple trace une droite verticale,

LD B,175 ;Y
LD C,10 — 1X

LOOP PUSH BC sauvegarde de B
CALL 9790 ;PLOT X,Y
POP BC retrouve B
DJNZ LOUP ;B=B-1,si B(>0 on

srecommence à LOOP

RET

DRAW

La commande BASIC DRAW X,Y trace Un droite à partir du dernier
PLOT avec déplacement vertical et horizontal, positif ou négatif.
À l'intérieur de la ROM, la routine se trouve à l'adresse 10259
(9402),

Avant l'appel, nous chargeons B avec le déplacement Y
C avec le déplacement X
D avec 253 si Y est négatif ou Í si
Y est positif
E avec 255 si X est négatif ou 1 si 13
Y est positif

Ainsi pour l'équivalent de DRAW 10,-50 —

LD 8,50
LD C,10

LD 5
TEN
CALL 10259

IMPORTANT: À cause d'un "BUG" de la ROM, lorsque l'on revient de

routine et que nous retournons au BASIC, nous devons
mettre dans le registre H'L' la valeur 11030 (10072)
sinon le programme plante ...

Dans l'exemple suivant, nous faisons PLOT 0,175 et
DRAW 255,-175 .

PLOT LD 8,175 ;valeur Y
LD C,0 "valeur
CALL 9790 ;ROM PLOT

DRAW LD B,175 ;déplacement Y
LD C,255 ;déplacement X
LD 1,255 ;Y négatif
LEI $X positif
CALL 10259;ROM DRAW

FIN LD HL,11030
EXX ;H*L?=11030
RET

CIRCLE

La routine CIRCLE se trouve à l'adresse 9842 (9005). Cette
routine va chercher ses arguments sur la pile arithmétique, Il `
est facile pour le programmeur d'y mettre les valeurs nécessaires
en utilisant la routine à l'adresse 12518 (11560) qui copie le

contenu du registre À sur le dessus de la pile.

Pour tracer un cercle, nous mettons dans l'ordre, les arguments
suivant sur la pile: centre X, centre Y et le rayon,

Au retour de la routine ROM qui trace le cercle, nous devons
charger le registree H'L' avec la valeur 11030 (10072) sinon on

"CRASH" <.

š ,
| دچ‎ T n...

Dans l'exemple suivant, nous faisons CIRCLE 100,80,75

LD A, 100 position X
CALL 12518 ;A sur la pile
LD 40 iposition Y
CALL 12518

LD A,75 ;rayon

CALL 12518

CALL 9862 ;trace cercle
LD HL, 11030

EXX (UL? 211030
RET

BORDER

Pour le charger du BORDER, nous pouvons écrire, dans le port 254,
la couleur désirée, mais la couleur ne reste que de façon
temporaire,

Pour un BORDER de couleur BLANCHE.

(BASIC) OUT 254,7 (MACHINE) LD 4,7
QUT (254),A

Pour changer de façan permanente, on utilise la routine située à
l'adresse 9285 (8859), On charge l'Accumulateur (A) avec la
couleur désirée,

LD 4,0 — ;NOIR

CALL 9283 ;ROM BORDER

RET

CLS

Pour un CLS complet de l'écran, la routine se trouve à l'adresse
2282 (3503). On l'appelle avec (BASIC) RANDOMIZE USR 2282
(MACHINE) JP 2282 ou
CALL 2282
RET

Egalement, il est facile d'effacer seulement une partie de
l'écran. C'est-à-dire seulement B ligne(s) à partir du BAS de
l'écran. Cette routine est à l'adresse 2431 (3552). Si nous
voulons effacer 10 lignes à partir du bas de l'écran:

-si la couleur du BORDER=couleur du PAPER ——

LD B,10
CALL 2431
RET

-si la couleur du BORDER()couleur du PAPER

LD 4,2
CALL 4454 ; (5633)
LD 8,10

CALL 2431

RET

| REM petit prog graphiques

2 REM Personal Conputer#06

H
4 INPUT "Pause (1-50):";pa

10 FOR xz0 TO 14 STEP 2

20 FÜR i=8 TQ 50 STEP 10

30 PLOT 120+x,90+i+x: DRAW i,0: DRAW 0,-i: DRAW -i,0: DRAW O,i
40 PLOT 120-x,90-i-x: DRAW -i,0: DRAW 0,1: DRAW i,0: DRAW 0,-i
50 PLOT 120+x,90-i-x: DRAW i,0: DRAW O,i: DRAW -i,0: DRAW 0,-i
40 PLOT 120-x,90+i+x: DRAW 0,-i: DRAW -i,0: DRAW O,i: DRAW i,0
70 PLOT 119-x,89+i-x: DRAW i,0: DRAW 0,-i: DRAW -i,0: DRAW Oi
BO PLOT 1214x,91-i*v: DRAW -i,0: DRAW 0,1: DRAW i O: DRAW 0,-i

100 OVER 1: PAUSE pa: NEXT i: NEXT x: GO TO 10

1 REM petit prog graphiques?
2 REM Personal Conputer#06
3:
10 BORDER 0: PAPER 0: INK 7: CLS : FOR x=0 TO 16 STEP Z
20 FOR i=0 TÜ 65 STEP à
30 PLOT 130+x,90+itx: DRAW i,-i: DRAW -i,-i: DRAW -i,i: DRAW i
,i
40 PLOT 130-x,90-i-x: DRAW -i,i: DRAW i,i: DRAW i,-i: DRAW -i,
-i
50 PLOT 130-x,90+itx: DRAW -i,-i: DRAW *i,-i: DRAW i,i: DRAW -
ij
60 PLOT 1304x,90-1-x: DRAW i,i: DRAW -i,i: DRAW -i,-i: DRAW i,
2 -i

100 OVER 1: NEXT i: NEXT x: BEEP .2,22: PAUSE 0: 60 TO 10

|! À VENDRE

16-1000; 78-2040; Périphérique MEMOTECH ( Mémoire, Clavier, KRG,
I/F Imprimante, etc... ); Imprimante Thermique BROTHER HRS;
Moniteur Monochrome 12"; Logiciels et Livres ( liste sur demande)

ñ, LAVIOLETTE 15-1385 Bernard Montréal H2V (Ni (514) 273-4103

TRUCS QL

Voici une fonction qui simule la fonction GEN du 2068. Elle
retourne -1 si le nombre est négatif, 1 si le nombre est positif.

` 10 DEFine FuNction SEN (nombre)
20 RETurn (nonmbre?0)- (nombrec0)
30 END DEFine

Voici une procédure qui provoquera un RESET par logiciel.

10 DEFine PRüCedure RESET
20 POKE L 2^17,"1312837232"
30 CALL 2^17

40 END DEFine

Voici 2 procédures pour controler le vidéo,

10 DEFine PRüCedure VIDEO DN
20 POKE 98483,0
30 END DEFine

10 DEFine PROCedure VIDED_DFF
20 POKE 98483,3
30 END DEFine

Et maintenant 2 fonctions qui nous informent sur la mémoire du
HL.

eM

La première nous donne la mémoire disponible. On l'utilise de
cette façon: PRINT free_mem;" Octets disponibles"

10 DEFine FuNction FREE MEM

20 RETurn PEEK L(153855) -PEEK L |
(163852) E

30 END DEFine |

La deuxième nous donne la capacité de l'extension mémoire qui est !
installée, On l'utilise de cette façon:
PRINT exp_mem;"Kilo-octets "

10 DEF FuNction EXP MEM |
20 RETurn PEEK_L (143872) /1024-256
30 END DEFine

La mémoire-écran du OL débute à l'adresse 131072 et occupe 32K. |
Pour sauver le contenu de l'écran, nous pouvons faire ceci:

SBYTES ndvi screen, 131072, 32758

Mais ces chiffres sont difficile à retenir. Pour nous faciliter
la tâche, nous pouvons utiliser cet équivalent:

SBYTES mdvi screen, 2^17,2^15

NOUVEAU NEWSLETTER POUR LE 20468

Vous avez un 2068 et une interface de disque DLIBER?
Saviez-vous qu'il y a "newsletter" pour vous! Son nom est
"T$-2068 Safe Disk Update" et il parait à tout les 3
mois. Il traite bien entendu du DOS OLIGER mais aussi sur des
aspects très techniques du 2068 comme les CARTOUCHES,
EXPANSION RAM, et tout ce qui a rapport au HARDWARE.
L'abonnement pour Í année est de $12.00 US,

16-2088 SAFE DISK UPDATE, 1317 Stratford Ave, Panama City
FL 32404 USA

CARACTERES FRANCAIS avec FRONT PAGE

Vous possèdez le logiciel FRONT PAGE (QL) et vous voulez des
caractères français?

SIN vous fait une offre: envoyez-moi un microdrive pu une
disquette (5.25") plus 1$ (pour la poste) et par le retour du
courrier, vous allez obtenir ces caractères français.

TOUCHE CARACTERE
[ Á
1 à
í È
É ü
Pour obtenir des caractères français dans 2 SN
FOHT PAGE, charger le Fichier ACCENT FAT, :
Le "CHARSET" à utiliser est ALT. : :

CLUB SINCLAIR

CLUB des UTILISATEURS QL
4000 BL. CENTRAL NORD
DUBERGER GIP 3P9

CLUB des UTILISATEURS 2048
A/S PIERRE GAUDET

1805 CAMBERT

QUEBEC GIP ٤1

tà

Mn
0108

1
|

[

iaaa Í

kd

AD

Le?

gel‏ مسا
=

ki

RE

Wm
Le HE WH
Um Mët سپ‎

EN د‎
L. asal "Zu
سا‎ mg... K=